##############################################################################
###+------+###################################################################
#+-| PACK |------------------------------------------+########################
#| +------+ The PACK command removes deleted records |########################
#|          a database and reindexes it if necessary |########################
#+---------------------------------------------------+########################
##############################################################################
##############################################################################
#+--| Syntax |-------------+##################################################
#|     [!<Alias>] PACK     |##################################################
#+-------------------------+##################################################
##############################################################################
##############################################################################
#######+---| Description |--------------------------------------------+#######
#######| Any index alias associated with the database alias will be   |#######
#######| reindexed.  Associated memo (.dbt) files are also packed.    |#######
#######| ------------------------------------------------------------ |#######
#######| PACK requires enough free disk space to duplicate the        |#######
#######| database.                                                    |#######
#######+--------------------------------------------------------------+#######
##############################################################################
##############################################################################
#########+--| Example 1 |-------------------------------------------+#########
#########| *    Delete several records and physically remove        |#########
#########| *    them from the database.                             |#########
#########|                                                          |#########
#########| !data DELETE ALL FOR .NOT. data->is_customer             |#########
#########|                                                          |#########
#########| !data PACK                  && Packs the associated dbt  |#########
#########|                             &&  file.                    |#########
#########+----------------------------------------------------------+#########
##############################################################################
##############################################################################
#########+--| Example 2 |-------------------------------------------+#########
#########| *    Recall any deleted records which should not.        |#########
#########| *    be packed from a database.                          |#########
#########|                                                          |#########
#########| EDIT ALL parts->desc                                     |#########
#########| IF lastkey() <> &K_ESC                                   |#########
#########|     PACK                                                 |#########
#########| ENDIF                                                    |#########
#########+----------------------------------------------------------+#########
##############################################################################